home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 14 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  370 b   |  16 lines
  1. 10 ;RD TRK 14
  2. 20 SECTOR LDA TRK; CALCULATE NUMBER OF SECTORS
  3. 21 CMP #$24; ON TRACK CHOSEN TO READ
  4. 22 BCC NORMT; IF TRACK IS GREATER THAN #35
  5. 23 LDX #$00; THEN SET SECTORS TO #17
  6. 25 JMP OVER
  7. 30 NORMT LDX BOUND; IF LESS THAN #35 THE
  8. 40 LP6 CMP BOUND,X; CALCULATE NUMBER OF SECTORS
  9. 50 DEX
  10. 60 BCS LP6
  11. 70 OVER LDA TOTAL,X
  12. 75 STA SEC
  13. 76 STA TKSEC+1
  14. 95 RTS
  15. 130 .FILE RD TRK 15
  16.